function p1_target = p1_target_ftn(lr_target,  pr_s, claims2, ...
    beta_f, T1, B2_f,  B1_f, Er)

epdv_claims = (beta_f^T1)*B2_f*sum(pr_s.*claims2,2);

p1_target = epdv_claims/(lr_target*(B1_f + (beta_f^T1)*B2_f*Er));
